home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
COMMUNIC
/
WC094C.ZIP
/
DAILY.SCR
< prev
next >
Wrap
Text File
|
1993-03-02
|
2KB
|
92 lines
;***********************************************************************
; WinCIS .94
; Copyright(C) 1992
; Larry Lee (76670,1471)
; 16038 Augusta Drive
; Chino Hills, Ca 91709
;***********************************************************************
; GO FULL SCREEN
WINDOWSTATE MAXIMIZE
WAIT !
SEND SET BRIEF YES^M
WAIT !
SEND SET PAGED NO^M
WAIT !
SEND SET BLANK YES^M
WAIT !
; Start with weather Information
ECHO Weather Information
SEND GO CIS^M
WAIT !
; Erase Exitsing File if Any
KILLFILE &MESSAGEPATH\NEWS.TXT
; ^M^J is the same as a CRLF
; Add a Title Line
PUTFILE &MESSAGEPATH\NEWS.TXT ^M^J>>> Local Weather Report as of &DATE at &TIME <<<^M^J^M^J
; Start File Capture
CAPTURE &MESSAGEPATH\NEWS.TXT APPEND
; get local weather
SEND WEATHER^M
WAIT !
; Turn Off File Capture
CAPTURE OFF
; Now Get Stock Report
ECHO Stock Reports
; ^M^J is the same as a CRLF
; Add a Title Line
PUTFILE &MESSAGEPATH\NEWS.TXT ^M^J^M^J>>> Stock Quotes as of &DATE at &TIME <<<^M^J^M^J
; Start File Capture
CAPTURE &MESSAGEPATH\NEWS.TXT APPEND
; wait for prompt
SEND QUOTE HRB^M
WAIT !
; Turn Off File Capture
CAPTURE OFF
; Finally Daily News
ECHO The Daily News
SEND GO OLT-90^M
WAIT !
; ^M^J is the same as a CRLF
; Add a Title Line
PUTFILE &MESSAGEPATH\NEWS.TXT ^M^J^M^J>>> OLT-90 Online Today's daily Edition as of &DATE atT &TIME <<<^M^J^M^J
; Start File Capture
CAPTURE &MESSAGEPATH\NEWS.TXT APPEND
; Read the News
SEND ALL^M
WAIT age!
; Turn Off File Capture
CAPTURE OFF
SEND ^M
; outta here
WAIT T-90
SEND ^M
; Wait For Navigation Prompt
WAIT !
; Shrink the screen Size
WINDOWSTATE MINIMIZE
; Call Notepad
SHELL NOTEPAD.EXE 1 &MESSAGEPATH\NEWS.TXT
; Logoff CIS and Exit the Terminal Window
LOGOFF